home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / tds-2.04.lha / TDS / Install TDS < prev    next >
Text File  |  1994-08-31  |  4KB  |  187 lines
  1. ; Installation script for Twilight Development System
  2. ; $VER: Install-TDS 2.04 (31.08.94)
  3.  
  4. (set @default-dest "SYS:")
  5. (set default_lang 2)
  6.  
  7. (if (< (/ (getversion) 65536) 37)
  8.   (abort "This program requires Kickstart 2.04 or greater to run !")
  9. )
  10.  
  11. (set destdir
  12.   (askdir
  13.     (prompt "Select where to install TDS")
  14.     (help @askdir-help)
  15.     (default @default-dest)
  16.     (newpath)
  17.   )
  18. )
  19.  
  20. (set @default-dest
  21.   (tackon destdir "TDS")
  22. )
  23.  
  24. (makedir @default-dest
  25.   (prompt "Creating Drawer TDS")
  26.   (help @makedir-help)
  27.   (infos)
  28. )
  29.  
  30. (copylib
  31.   (prompt "Installing Twilight Editor")
  32.   (help @copylib-help)
  33.   (source "Ted")
  34.   (dest @default-dest)
  35.   (infos)
  36. )
  37.  
  38. (copylib
  39.   (prompt "Installing Twilight Make")
  40.   (help @copylib-help)
  41.   (source "TMake")
  42.   (dest @default-dest)
  43.   (infos)
  44. )
  45.  
  46. (copylib
  47.   (prompt "Installing Twilight Reference Generator")
  48.   (help @copylib-help)
  49.   (source "TRefs")
  50.   (dest @default-dest)
  51. )
  52.  
  53. (copyfiles
  54.   (prompt "Installing Twilight Editor Frontend")
  55.   (help @copyfiles-help)
  56.   (source "Ed")
  57.   (dest @default-dest)
  58. )
  59.  
  60. (copyfiles
  61.   (prompt "Installing Converters")
  62.   (help @copyfiles-help)
  63.   (source "converters")
  64.   (dest (tackon @default-dest "converters"))
  65.   (all)
  66. )
  67.  
  68. (set lang 
  69.   (askoptions 
  70.     (prompt "Which languages should be installed ?")
  71.     (help @askoptions-help)
  72.     (choices "Deutsch"
  73.              "English"
  74.              "Español"
  75.              "Français"
  76.              "Italiano")
  77.     (default default_lang)
  78.   )
  79. )
  80.  
  81. (makedir (tackon @default-dest "catalogs"))
  82. (set n 0)
  83. (while 
  84.   (set language 
  85.     (select n  "deutsch"
  86.                "english"
  87.                "español"
  88.                "français"
  89.                "italiano"
  90.                "")
  91.   )
  92.   (
  93.     (if (IN lang n)
  94.       (
  95.         (if (<> 1 n)
  96.           (
  97.             (set catalog_dir (cat "catalogs/" language))
  98.             (copyfiles 
  99.               (prompt "Installing Catalogs")
  100.               (source catalog_dir)
  101.               (dest (tackon @default-dest catalog_dir))
  102.               (all)
  103.             )
  104.           )
  105.         )
  106.       )
  107.     )
  108.     (set n (+ n 1))
  109.   )
  110. )
  111.  
  112. (copyfiles
  113.   (prompt "Installing Catalogs Sources")
  114.   (help @copyfiles-help)
  115.   (source "catalogs/source")
  116.   (dest (tackon @default-dest "catalogs/source"))
  117.   (all)
  118. )
  119.  
  120. (makedir (tackon @default-dest "Docs") (infos))
  121. (set n 0)
  122. (while 
  123.   (set language 
  124.     (select n  "Deutsch"
  125.                "English"
  126.                "Español"
  127.                "Français"
  128.                "Italiano"
  129.                "")
  130.   )
  131.   (
  132.     (if (IN lang n)
  133.       (
  134.         (set src_file (cat "Docs/" language ".lzh"))
  135.         (set dest_dir (tackon @default-dest (cat "Docs/" language)))
  136.         (makedir dest_dir (infos))
  137.         (working "Extracting " language " Docs")
  138.         (run (cat "lharc >CON: x " src_file " " dest_dir "/"))
  139.       )
  140.     )
  141.     (set n (+ n 1))
  142.   )
  143. )
  144.  
  145. (if
  146.   (exists "keyfile")
  147.   (copyfiles
  148.     (prompt "Installing Keyfile")
  149.     (help @copyfiles-help)
  150.     (source "keyfile")
  151.     (dest @default-dest)
  152.   )
  153. )
  154.  
  155. (copyfiles
  156.   (prompt "Installing Icons")
  157.   (help @copyfiles-help)
  158.   (source "env/tds")
  159.   (pattern "#?.info")
  160.   (dest "envarc:tds")
  161. )
  162.  
  163. (if 
  164.   (askbool (prompt "Do you want to install the example projects ?")
  165.            (help "The example projects show how to use the features"
  166.                  " of the TDS for building new projects."
  167.            )
  168.   )
  169.   (copyfiles
  170.     (prompt "Installing Examples")
  171.     (help @copyfiles-help)
  172.     (source "examples")
  173.     (dest (tackon @default-dest "Examples"))
  174.     (all)
  175.     (infos)
  176.   )
  177. )
  178.  
  179. (startup "TDS"
  180.   (prompt "Do you want to modify the user-startup ?")
  181.   (help @startup-help)
  182.   (command "assign TDS: " @default-dest)
  183. )
  184.  
  185. (makeassign "TDS" @default-dest)
  186.  
  187.